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HOW TO HAKE A DLISP 


The funetihht Id 3DLISP 4te hand-coded in HIDAB using the 
macros and linking mechanism of Roland Silver (A.I, Memo 12"A) . 
They are contained in the file TOPO MQX (or latest version) and 
also ih the file DLISR EHGE on the tape labelled YEA DtS. The 
procedure is: 

make a file with DLISP-p==l ? suppresses TOPO functions 
assemble with TS bmidas on archive tape 

+ requires large macro area 
load the assembled file with the current relocatable LIEF 

PL UTnjTS__EMinAS (H) r TOE Archive tape 

DLISP SUERS +■ J3LISP EBGL@) 


lSTIHK_ 

JLXSPP 

MDLISP_SUBRS?L 

MLISP; KLISP_10 7 H$L| $ 

?$$ 

?Y DLISP_flIN @ 


J ash errors 
; terminate 
7 dump 
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LISP PICFAC 


Why deal with stored data? trnless the whole image is stored, 
only certain routines can use the data [for example those with 
fixed scan patterns), 

1. convenience: Setting up the vidisector takes me about 
IS minutes. Setting up particular conditions, for exam- 
pie a particularly difficult edge, may take longer, 

2* Reliability: The vidisector usually works, but it has 
been down for periods of three weekE and longer. 

3. Repeatability: A useful procedure has been, to dump each 
scene, then process it, Xf the program Encounters a bug, 
that data 1e valuable and allows the bug to be trapped, 
Repeatibility also allows isolating changes. Conceptual 
changes can also be tested more quickly with a well-known 
scene„ 

Loading Stored Data 

Loading stored pictures is simple if the entire picture is to 
be loaded# A function LOAD is called: 

(LOAD fnamel fname2 dev user array) 
where the last argument specifies the array name for the data to 
be stored, and the other arguments specify a file name- The size 
of the array is determined by LOAD and is attached: to the array as 
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the SIZE property of the atom. Note that LOAD takes arguments 
very much like UREAD. The file LOAD > on the TOE ARCHIVE tape 
contains the necessary functions. 

Where it is desired to work with only a portion of a stored 
picture, the user must struggle with the rather complicated set of 
arguments required by the binary read routines of Krakauer. His 
notes ore repeated here for reference. 


Making stored pictures 

To make stored pictures: 
set up the vidisector 

load LISP PICPAC :DQAD_FTCPAC_SY£ 

visualize and frame the scene 


$G {VIEW) 

scan (vscAN_dan) 

d ump ♦ (DUMF_fn l_f nl_d ev_u g er_p ICTURE) 

After executing (VIEW), the user selects a grid with pots 
labelled 143-147 and finally types T^ to terminate. 

The system requires about 44 blocks of core, -depending on the 
sise of the picture. 

To make up a new version of PICPAC SYS-, load the TQPQ file 
and allocate as desired, load a file PICPAC XI3 which generates 
a smaller version of the TOPOLOGIST, with TCPO inoperative and 
inessential. 
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: LCftD_T0t0_N5Y5_ 

$E 

ALLOC Y 
CORE 36 

a H- * « ■■ h r 

(uitEftp picpac xisiro" 

where PIC?JVC 3il3 is only REGION 3il3 with the TGPO core allocation 
removed and a smaller PICTURE array- 

Preliminary PICPAC for LISP 

0/3/67 

L-.J* Kr aka tier Revised 10/20/67 

Several functions have been added to LISP in order to allow 
tha reading of vidisactor images from tape, and the writing of 
such images onto tape. 

Before describing the functions* however* a word or two must 
be said about the image conventions of PICPAC, Images are con¬ 
sidered to he rectangular subportions of the unit square,, and 
hence image coordinates are floating point numbers between 0 and 
1- This convention facilitates the mapping of this "image space' 1 
onto various X/o devices- such as both vidisectors- the display* 
the plotter* etc, since fixed point coordinates have often been 
used in the past* however* all functions needing floating point 


5 



arguments will perform the conversion from fixed point if fixed 
point arguments, are supplied. The fixed point value e are assumed 
to be new vidisector coordinates r so that the conversion amounts 
to floating the coordinates and dividing by 4096.0, 

The currently available functions are: 

(PICARRAY arr gc xdim ydim) i This function declares an image 
array. Its use is exactly the same as the function ARRAY: the 
arguments are, respectively, the array name, gc*NIL, the array x 
dimension, and the y dimension. Since an image array will contain 
numbers, and not pointers to S- expressiona, the second argument, 
go, should always be NIL, The array so declared looks like a nor¬ 
mal LISP array? that is, (arr n m) will evaluate tg the x=n, y=m 
entry in the array. 

(IIREAD narnel name2 unit): The regular TJREAD is used to open 
a file for reading (but do not type 

(readpic arr llx llv del} or (READFlc arr llx lly delx dely): 
This function performs the read from the file previously specified 
in a UREAD into the array arr. The arguments are respectively the 
lower-left x and y coordinates, and the x and y deltas respectively 
(the y delta will he assumed the same as the y delta if the last 
argument is omitted)„ The number of points read is determined by 
the array's dimensions. Thus the coordinates of the upper-right 
point of the image area read in are given by; 
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u^x “ llx + delx*xdiin 


ury = lly + dely*ydim 

These arguments, are normally to be floating point, but if fixed 
point numbers are given, they will he assumed to he new vidisector 
coordinates and will he converted r be previously noted. 

The value of fleadpjc will he arr, the name of the array, if 
the read is successful, in order to be successful, however, the 
area of the image requested must be a subpart of the area recorded 
on the tape. The area on the tape will not in general be the 
entire unit square, however. If a portion of the area requested 
is not on the tape, READPIC will print an error comment and return 
the value NEL. 

Note that if the delta given is not an integer multiple of the 
delta on the tape, no error comment is printed, but rather REftDPlC 
tries to do the best it can, returning for each point requested the 
value of the closest latt ice point actually recorded an the tape. 

(UWRITE unit}* The regular UWRITE is used. 

(WRITEPIC art) t The entire array arr is written out on the 
unit previously opened for writing. 

(UFILE name! na».e2}f The same UFILE is used as for ordinary 
ASCII files. 

(EEECRa): usually (DESCR (QUOTE ARR)} or (DE5CR}: 

The argument a is ■evaluatedr it should evaluate to either the name 
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of an array or to KIL* This function {its name stands for "des¬ 
cribe' 1 ) evaluates to a list of Id. numbers describing the array, 
which ate, in order: 

(xdlm ydim Hat Xly delx dely -335577777776 vd light data), 
where the last three numbers give information about the vid 1 sector 
used, the lighting, and the mode of the data. Numbers 3 through 
5 axe in floating point, and number 7 is a byte pointer used 
internally, which can be ignored- (DESCR) evaluates to a similar 
list which describes the image on tape which was last read from by 
a RZADPIC„ whether suecessfully or otherwise, (DESCR HID) “MIL 
A useful trick is to execute a (SETQ ARE. (QtlOTE ARR)) for all 
arrays- [DESCR ARE) may then be typed instead of (DESCR (QUOTE 
ARR))- 

(DESCRX a): This function is the same as DESCR, except that 
all floating point numbers are fixed, after being converted to new 
vidisactor coordinates by multiplying by 4096,0. Images On tape 
will generally have integral deltas. 
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SCAN FUNCTION IN LISP 


A scan function which baa wide utility is available in DLISP. 
The function evaluates functional arguments at the locations in 
two dimensions given by the parallelogram specified by a point and 
(nl ♦ n2) steps along two vectors (vl v2) . 



A typical call isi 

(SCAN 1 (funl fun2 rowfun) (x - y) (nl , n2) (vl . v2) ) 
where vl and v2 are dotted pairs, vectors defining the directions 
qf the steps. Typically t (vl , v2) ■= { (Q . den) , (den ■■ 0) ) . 

The functional argumenta futt.2 and rowfun are optional if present, 
rqwfun is called at the beginning qf each row as an initialisation 
function, then at each point t 


(fun2 (funl x y )) 


is evaluated,. The function ECAEA assumes that the second argument 
is an array, and stores into it. 


(SCANA 1 (funl array) (x y) (nl .. n2){vl - v2) ) 


A complication in the use of these functions rests on the LIEP 
convention with the order of elements in an array.- LISP stores 
elements backwards from the usual convention of the faster moving 
index as the first index. The SCAN routines were designed to work 
with these arrays r and thus have reversed x and y coordinates for 
real world devices like the vidisector, 
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THE GEOMETER 


The analysis per formed by the GEOMETER has been described in 
another note. He go into programming detail here. A package of 
modules is called in a dozen subroutine calls, by a very brief 
routine celled EXECUTE* The flow of control is outlined below, 
hut can be followed directly in EXECUTE* The primary data is the 
list REGIONS and various properties Of each region, primarily 
inclusion and BOUND. 

REGIONS 

(R12 HI3 RU R15 R16 R17 R20 R21 H22 H23 H24 H25 R£6 R27 
H30 H31 R32 R33 R34 H35 R36 R37 R40 R41 R42 H4 3 R44 R45 R46 
R47 R50 R51 R52 RS3 R54 R55 F56 R57 RSD R61 R62) 

The BOUND property is a list of sublists consisting g£ a code for 
the neighbor , followed by a list of points. 

R14 BOUND 
([NIL (174 * 20)) 

{15 {174 * 22) (174 . 24) (174 . 26) (174 . 30) (174 . 32) 
{174 . 34) (174 . 36) (174 . 40) {174 + 42) (174 * 44) 

{174 . 46} (174 ♦ 50) * ■ * . 

wo choose big regions on the basis of perimeter, then determine 
the list SEGMENTS of boundaries of big regions, The properties 
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Of interest are the CORNERS of a segment, the SEGMENTS property 
of a segment (list of subliste of points), and the REGIONS pro¬ 
perty of a segment* the £• property of a region is also of interest 7 
it is a list of dotted pairs of nhbr atid segment, cyclic around the 
boundary* The subsegmentation into straight lines is done at 
this time? its results are the CORKERS property of a segment* 

We go frtm segments to vertices by the syntactic: analysis on 
neighborhoods. By pairing segments across a common boundary and 
by cycling around a vertex using alternately successor and pairing 
operations: 

52 is the successor of si 

53 pairs with £2 

£4 is the successor of S3 

55 pairs with 5-4 

We come to vertices involving three or more regions. The properties 
of interest aret 

the CYCLE of a vertex, a ctw list of sublists of paired eeg~ 
merits 

VERTEXl and VERTEX2 of a segment, names of vertices* 

. VERTICES 

{V30 V27 V26 V2 5 V24 V23 V22 v21 V2 0 V17 V16 VIS V14 V13) 
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(PRINTL (GET ’V30 "CYCLE)} 


(£(15 * S 22) £14 , S13JJ 


£ (12 . S2&} (15 * S23)) 


< £14 . 531} (12 . S32))) 


We obtain the location of vertices by intersection, and Mile a 
better approximation to the straight lines between three-region 
vertices * Then we prepare the format for output i that form is a 
list of vertices with their positions and connectivity* 

CONNECT property of a vertex, ecw list of connected vertices 
POSITION property of a vertex, dotted pair floating point 
{x , y) 

The PROPOSER works with that format and possibly adds some new 
connections * 

The figure which follows will he a useful model for the 
examples of the new few pages. 



12 









EXECl defines: 

BREGIOES, a list of big regions 

NEREGIONE, a nor responding list of region codes 
TRL2, an assoc translation list from codes to regions 

EDGES defines; 

SEGMENTS, a list of boundaries of big regions 
S property of a region, list of dotted pairs, nhbr and seg¬ 
ment cyclic around boundary 

It calls: 

St which strings together sublist? of BOUHD with a constant 
big region nhbr 

SEGMENTS: which subsegments into straight lines. Returns 

end points and any intervening earners. 

An example of the £ property: 

R14 S 
(12 . S26) 

{15 * S3 5) 

{21 , S24) 

{17 * S35) 

{13 . 

S3 makes only a Email format change* 

VA defines: 

PAIR property of a segment 

VA calls: 

PlivDS 

PAIRS 

The action, of VA is to pair segments on opposite sides of a 
common boundary by neighborhood and parallel-opposite. This 
pairing rejects much noise which fails to affect both elements 
of a pair. The variables PARALLEL (radians, currently set at 
about 30*) and FDTQL, a loose tolerance on perpendicular dis¬ 
tance, control these conditions. The overlap condition is 
that one end of one -of the lines must be interior to the 
other in projection. 
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Vl defines: 


VERTICES, a list of three-region vertices 

CYCLE property of a vertex, a list of sublists of length 2, 
each element of which is a hotted pair, nhbr and segment 
VERTEXl and VERTEX2 property of a segment 

Vi nails: 

CYCLE 

The syntactic operation extracts three—or—more region, ver¬ 
tices. CYCLE cycles around the vertex by alternating suc¬ 
cessor and pair ope rat. ion g, Successor of Si is £2* the pair 
of £2 is S3; the successor of S3 is £4; etc. 


V3Q CYCLE 

((15 . S22) (14 * Sl3)1 

(<13 * S2S) (15 . £23)) 

((14 . S31) (12 . 532}) 

V2 defines: 

POSITION of a vertex, dotted pair of floating point numberE 

V2 calls: 

VTEX 

V2 determines a best intersection of lines at a vertex by 
deter seining a position with minimum mean square perpendicular 
distance from the lines- Each line appears paired♦ iterates 
a second and third time, weighting square distances inversely 
by square extrapolation errors, thus giving most credit to 
the most accurate estimates. 

VTEST calls: 

VTEX 

VTEST occasionally merges two adjacent vertices . tlseful tg 
suppress spurious vertices caused by low resolution. 
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begins with the- line between the three-region vortices at 
either end of a segment, if all interior vertices are suf¬ 
ficiently close to the line r the segment is treated ag a 
straight line, if not, cluster by proximity of end points, 
and fit a vertex to each cluster. 


FAIRV 

CQHTTECT 3 - these two functions define* 


CONNECT property of a vertex 

These routines complete the format of the output: a list 
of vertices with their positions and connectivities. 

propose calls: 

PREDECESSOR 

SUCCESSOR 

COLINE&R, COWEX, and CONCAVE 

PROPOSE uses the Simple format; a list of Vertices, their 
positions,, end their connectivity. For each vertex, it 
defines predecessor and successor properties to simplify 
traveling around the net+ It looks only at concave vertices. 

It tries to close parallelograms. Given a concave vertex, 
it examines each connecting vertex. '[The angle must be 
less than the angle $2- if so, the routine looks by multi- 
entry for a vertex near the point predicted by translating 
V among VAjVE,. An earlier version uged broken lines, to 
extend them, and to connect two vortices with an edge parallel 
to one in the region, provided it did not cross any other edge. 



OUTPUT 


writes out the data ih the final format and with the data 


a little program which reads the data in and formats it. The 
function is called with the name of the output file: 

^OUTPUT fhamel fnarae2) , 

Two flags are of interest: 

SHOW if non-nil, causes display of various steps in processing. 
PLOT if non-nil, causes plots of the steps displayed- 

Some useful functions for looking at data are* 

SHQWEDGES - paired straight lines 
SHOWEETOS - straight lines 
SHOW - line drawing from final format 
SROWBOUND - unprocessed boundary 

To help examine property listEj 

(PLI5T list property) FEXFR prints the indicated property 
in- a useful form, for each element in the list 

(PROPS atom) FEXPR prints the indicators only on the property 
list of the atrore. 
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SEGMENTS 


The purpose o f SEGMENTS is to take a portion of a boundary 
and break it up into a sequence of straight lines. There are two 
entries, which differ only in whether the list returned contains 
the endpoints. The routines are in MIDAS* loaded into LISP using 
the macros and linking mechanism of Roland silver (A,I, Memo 127A) , 
They live in the TOPO MQX and in TVJ >- 

The method is simple; given an ordered list of points, we 
take the iine between end points, and subdivide the list or not 
depending on the maximum perpendicular distance of points from the 
line, if the maximum perpendicular distance is greater than approxi¬ 
mately four times the transverse point scatter dx (dx is approxi¬ 
mately half a raster unit in a typical case ) t the list is subdivided 
and the procedure is applied recursively to the sublists. The limit 
of perpendicular distance is set from LISP by: 

(SEGI limit} ; initialization 

where limit is floating point. 

If there results more than one division, the conditions for 
findihg a corner are not always well met (no line should be near 
parallel to the line between end points}. Therefore, we repeat the 
process twice more on the lines obtained, but consider alternate 
Vertices. Some corners are shifted and others disappear. 

The routine returns a list of corner points (which are actually 
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points from the list), it would he better to return ligts of fitted 
points. The routine ig called with a list of dotted pairs, not 
•necessarily floating point. 

The perpendicular distance test is quite fast. The perpendi¬ 
cular distance corresponds to the y-eoordinate in a coordinate system 
rotated along the line connecting end points as the x-axis. 

The parameters used by the program are: 

SEGLIM: the limit to perpendicular distances considered cplifleat. 

Set by {EEGI limit), it is a floating point machine number , not 
a LISP atom. 

EUSRg defined; 

SEGI; initialize the parameter SEGLIM 

SEGMENTS:: returns a list of corners with end points in the form of 
dotted pairs of floating point LISP numbers. 

SEGKEEJTi returns list of corners without end points. 

We make a short description of the operation and of the principal 
MIDAS entries. A user who wished to incorporate the routines would 
need to change the input form and the output form. 

SEGFUStt: convert frear. input format to internal format; push 

points on a point pdl (which overlaps TOPO and thus smashes 
TOPO}. The internal format is alternate x and y in a block. 

SEGB2; segment portion of line between two pointers on the 
paint pdl and recurse. Argumenta are a list of corners in A t 
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and begin and end pointers in C and R4. 


SEGR: repeat segmentation on each aublist between alternat 

corner e + 

The program, roughly speaking, ia : 


PtfSHJ P, SEGPUSH 

7 set up internal format 

PUSHJ F, SEGB2 

;initial segmentation 

PUEHJ P, SEGR 

7 repea t & egme nt a tion 


PUSHJ P, EEGR 


JR5T SEGPO 

; output list of -dotted pairs 
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multi-entry CODING 


The multi-entry coding routines are a module available in LISP 
and MIDAS * The routines provide the me chan is tn for two-dimensional 
proximity, i+e* find all points near a point p* topology requires 
that there be N+l overlapping cells in M dimensions to guarantee 
proximity. For simplicity, we have four instead of three overlapping 
cells, The distance for proximity defines the dimension of the 
array? if delta is this distance, the array must correspond to cells 
of twice this size. The array has dimensions 
tfl/C2*DELTA), K2/(2*DELTA), 4 

hut is a half word array* in the MIDAS version, hash coding is 
uged if the Image array exceeds the storage area in size, in each 
half word, a list of the entries is kept. 

Functions to initialiser to store, and to retrieve associations 
comprise the package* In LISP? 

(MATCHA nr ny (cons sx sy)) initializes fry calculating the 
scale and allocating an array of the calculated size. Here, 
nx and ny are upper limits of coordinates which are assumed 
to run from (0 . 0} to (nx . ny}; sx and sy are cell sizes 
along the two dimensions. 

(MULTISTQEE p ptr) stores the pointer ptr at the position of 
the dotted pair p* 

[MLTLTIFIND p ptr) returns a list of elements different from 
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ptr and with d-d repet it ions , elements near the dotted pair 
position p. 


The functions occupy one page of EXPR node in the file labelled 
A 262 an the tape TOB ARCHIVE. 

in the Midas version, the array location and array sise are 


stored in variables; 


MULTlA: 

♦array location 

MDLTIL: 

;array length 

At 

rxlow float pt 

Hi 

;ylow float pt 

C: 

txhigh float pt 

R4 : 

jyhigh float pt 


To initialiser either r 


MHLTIMi 

♦X dimension fixed pt 

JCULTINi 

f y dimension fixed pt 

PUSHJ P, MULTII 

:calculates scale and scaling function 


or the user can specify the scale factors and, allow the program to 
calculate the dimensions of the image array: 


MULTI Qi 

;Scale factor 

MULTJQ+l 

?scale factor y 

PUSBJ F, MULTIZ 

;initialise, calc dimensions and choose scale 

function 
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To store in the multi-entry array: 

A: pointer 
Bj x float pt 
0: y float pt 
FU&HJ ? f MULTI £ 
which returns: 

A: original pointer 

B-R5s four lists of associations, exactly, in each of the 
four registers are two lists: after cons list, before cons 
list. 

To find associations: 

A: pointer 
B: x float pt 
C: y float pt 

FCJSHJ F, MCJLTIV 

which returns a list in A, without repetitions and without the 
original pointer. 

To store vectors, interpolating points between end points, suf¬ 
ficient to guarantee proximity? 

A * pointer 
B: xl float pt 

C: yl float pt 

R4: x 2 float pt 
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R5* y2 float pt 

KULTVF: funarg evaluated ac end points and interpolated points 

PUSHJ P, MULTIV 

At each interpolated point and end point, the program calls. the 
functional argument in MULTVT (which might be MULTIS, but which wpul 
preferably be a function which calls MUlTIS, then processes the 
associations which occur) . A useful way gf 113 inq MULT IV is with a 
hash-coded table of pairs to avoid repetition. The COHSes can be 
done from a pdl pr free storage area. 
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STRAIGHT LINE FITTING 


We usually represent a line in the symmetric form; 


x*&int - y*cost + x ■= Q 


The special cases 


y ■ ax + to 


x = ey +■ d 


are simply; 


x*tant - y + s/cost = 0 


x - y*cott + z/sint = 0 


The solution to the special cases is straightforward in terms of 
the method of projection; 
y = ax + h 



This is a system of two equations in two unknowns; 



whose solution corresponds to the line with the same first two moments 
as the sample* The equations are exactly those of the least squares 
solution* The solution for the form 
x ■ cy + d 

can toe obtained by interchanging x and y in the two equations. The 
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case of a symmetric interval in x is often very useful. Then, tbe 
sum on x vanishes, £ X*'0 and; 

a.- Z_t j.kj /Z *(*.■ 

ks c £ y; /^ 


The general linear form has a nonlinear normalization condition and 
the solution isj . _ —i 

tan 2 *[? ***i " ? ** ' h £ «<£* ~ ?* ?*)J 

Gne useful quantity for description of a line dB ite angle; 
slopes aro not continuous through the full range of TT direct ions. 
Although the general linear solution involves transcendental func¬ 
tions which involve a certain amount of computation, the alternative 
is to take the special case solution about the axis which lies nearer 


the line of the data. This amounts to choosing the larger of the 
denominators 

The straight line fits should be adequate even though the procedure 
is not rotatiqnally invariant, hut tan Q is a poor approx to the 
angle 9 at angles near 45°. The simplest solution is to calculate 
the angle 9 corresponding to a few terms in the atan 9 series 
expansion + 


Straightforward error propagation shews the mean squared error 
in slope to he: 
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< da.* da> = < duM* >/( £ J_*, 21 *. 'I*;*,) 

' i * i 

For the general ease, we can use the same result after a rotation 
Df coordinates with x axis along the direction of the line. A 
usual test for linearity is the mean squared errori 

M ? 21 + t) Z 

which can be computed in terms of the sums already calculated■ 

M- & z Z.* 2 + la.bX*tj f idcljt tlbcL^ + t z l. 1 

A description of the line segment by two of the sample points 
is deficient but useful. Instead, we describe a line segment by 
end points, projected on the line. These are equivalent to the 
best fit line, and are an alternative representation. 

Functions in both LIST and MTPAS are available to oomputs 
straight line fits. In LISP, the procedure is to evaluate; 
tSTLIME L) 

where L is a list of dotted pairs. The value is a list of three 
parameters in one of the two special cage forms. 

The MIDAS version (available in TVJ )} fits the general form 
of the linear equation. The internal representation is a blocX of 
alternate x and y floating point positlong, it expects: 

A: pointer to the first point 
B: pointer to the last point 
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PUEHJ P # LFIT 


The results are in a block of about 20 words to BLT into a header 
hlock for the line. Other entries are; 

A? x float at 
E: y f 1 oa t pt 

PU5HJ F r LF1TP 

which adds a point to the line sums. 

FUBHJ F, LFIT 3 

which takes its data from the LFIT data block and fita the parameters 
of a general straight line* 

As x float pt 
B: y float at 
PUEHJ P, LFITPR 

which projects the point {x,y) on the line in the LFIT data hlock. 

For the purpose of testing coiinearity, a function for the 
special case line fit also exists, hut h^s not been debugged* The 
time required per fit is around *5 msec, sufficiently fast to allow 
rather free testing of colinearity hypotheses for extension and 
redundancy of lines* 
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LINE VERIFICATION 


LY 

Given two points and in the field of vieWj the program 

^ -^|l r+ 

will tall whether an edge extends from Q^i to Q^ti (i normal to 
°1 Q 2>- 

ThE central part of the program is in MIDAS to he used within 
LISP . A few EXPR execute top level functions,, 

Instructions for use; 

1. Assemble the MIDAS program MLV i (or mlV 2) which is on tape AHD. 

MIEASjir 

device:user; MLV bim^mlv 1 (Sr) 

2. Link the assembled version with LISP and TQPO as follows: 

STINK {IT 
JLIEPl 

Mdevice:uger;TOPO BIN$L 
Mdevice:user?MLV BIt3$L 
Mdevice:user;RLis? 107 h$l$$ 

TD$$ 

LV BIt3 @ 

3. Read in file LV 1 (or LV 21 of tape AHD 

(UREAD LV 1 device user) 


4. Setq Ql and Q2 to coordinates of extremal points of possible 
edge, ne,; 

(SETQ Ql (CONS X-coord- Y-COOrd.)} 

(SETS' Q2 (CONS X-coord, Y-coord,)) 

Coordinates should he fixed point quantities between 0 and 1777 octal, 

5. Execute 

(IV) 

If no edge is found it returns NIL-, otherwise a description of the 
edge as follows: 

(STEP DARK RIGHT (2D , 25)) 

-edge of the step type 

~the dotted pair represents the x-coordinates of the lower and 
upper point of the actual edge with respect tD axes Ox and 0y 
as shown in the figure 
-the darker face is right of Q^C^- 

0 

Another description: 

(ROOF OP (22 . 42)) 

“■roof looking upward, 

etc, . . 

6+ a) |i| is set to 10. If you wish to change it execute? 
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tSETQ IHCEF.T new value ) 

4, 

floating point number 

(LVCST) 

(TABALF) 

b) The shortest and longest edges for which the Verification 
process is secure are 50, and 400 + respectively (2000 octal being 
the aide of the whole field). To change this execute: 

(SETQ MAXLE new value qf maxima 1_1 engt h ) 

(EETO MIHLE new vnlue of minimal length ) 

(LVCST) 

(TABALF) 

Values should be floating point numbers, 

Eote± if you nabe MIHLE less than 50,, you should use 5 bands 
instead of 10 (for clarification see paragraph 7 below). Then 
MIHLE can be lowered down to 25+ 

c) If you want to use the program with canned data, read in 
the canned data after reading file IV 1, as follows: 

(LOAD Edge File Mo. device user LlD) 

— 1 

array where cross-sect ions are stored 
Presumably you would before have dumped LIDr 
(DUMP Edge File Mo, device user HD) 

7+ The procedure is set with 10 bands (see Qn Boundary Detection , 

A,I, Memo No, 183, p + 4 5) + l£ you wish to use five bands execute; 
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(5ETG HBD 5) 
fEETQ THBIN 4) 
(LVCST) 


(SETFAR 'TV) 


